home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / b_menu2.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  71 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: B_MENU2.BAS ::::::::::::::                    *
  4. 1030 ' *                                Programmed By T.K.Mosaku        *
  5. 1040 ' *                                ~~~~~~~~~~~~~~~~~~~~~~~~        *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 SCREEN@ 0:CLS:MOUSE 5
  9. 1080 '
  10. 1090 CLS:X1=25:Y1=86:X2=625:Y2=412
  11. 1100 FOR T=0 TO 140 STEP 2 
  12. 1110   LINE (X1+T,Y1+T)-(X2-T,Y2-T),PSET,5,B
  13. 1120 NEXT
  14. 1130 LOCATE 24,13:COLOR 7:PRINT" 準備中です｡しばらくお待ち下さい｡"
  15. 1140 '
  16. 1150 LOAD@ "F_ALLMAP.TIF",(25, 85):CLS 4
  17. 1160 '
  18. 1170 FOR T=0 TO 14 STEP 2 
  19. 1180   LINE (26+T*3,13+T)-(626-T*3,80-T),PSET,5,B
  20. 1190 NEXT
  21. 1200 LINE (75,30)-(578,63),PSET,6,BF
  22. 1210 LOCATE 12,2:COLOR 1
  23. 1220 PRINT"★★★ メニュー ★★★  希望するものを左クリックして下さい｡"
  24. 1230 FOR T=0 TO 14 STEP 2 
  25. 1240   LINE (26+T*3,417+T)-(626-T*3,473-T),PSET,5,B
  26. 1250 NEXT
  27. 1260 LINE (75,434)-(578,456),PSET,6,BF
  28. 1270 LOCATE 24,23:COLOR 1:PRINT"   By T.K.MOSAKU HORAI FUKUSIMA"
  29. 1280 '
  30. 1290 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  31. 1300 X=MOUSE(4,0):Y=MOUSE(5,0)
  32. 1310   IF X> 63 AND X<222 AND Y>136 AND Y<233 THEN 1410
  33. 1320   IF X>249 AND X<405 AND Y>136 AND Y<233 THEN 1490
  34. 1330   IF X>430 AND X<584 AND Y>136 AND Y<233 THEN 1610
  35. 1340   IF X> 63 AND X<222 AND Y>264 AND Y<360 THEN 1450
  36. 1350   IF X>249 AND X<405 AND Y>264 AND Y<360 THEN 1530
  37. 1360   IF X>430 AND X<584 AND Y>264 AND Y<360 THEN 1570
  38. 1370 GOTO 1300
  39. 1380 '
  40. 1390 '** プログラム呼出し **
  41. 1400 '
  42. 1410 X1= 67:Y1=134:GOSUB *FLAME
  43. 1420 MOUSE 5
  44. 1430 CHAIN "A_JAPAN.BAS",,ALL  :RUN "A_JAPAN.BAS"
  45. 1440 '
  46. 1450 X1= 67:Y1=259:GOSUB *FLAME
  47. 1460 MOUSE 5
  48. 1470 CHAIN "A_WORLD.BAS",,ALL  :RUN "A_WORLD.BAS"
  49. 1480 '
  50. 1490 X1=248:Y1=134:GOSUB *FLAME
  51. 1500 MOUSE 5
  52. 1510 CHAIN "A_EUROPA.BAS",,ALL:RUN "A_EUROPA.BAS"
  53. 1520 '
  54. 1530 X1=248:Y1=258:GOSUB *FLAME
  55. 1540 MOUSE 5
  56. 1550 CHAIN "A_ASIA.BAS",,ALL    :RUN "A_ASIA.BAS"
  57. 1560 '
  58. 1570 X1=426:Y1=259:GOSUB *FLAME
  59. 1580 MOUSE 5
  60. 1590 CHAIN "A_AFRICA.BAS",,ALL:RUN "A_AFRICA.BAS"
  61. 1600 '
  62. 1610 X1=426:Y1=134:GOSUB *FLAME
  63. 1620 MOUSE 5
  64. 1630 CHAIN "A_SAMERI.BAS",,ALL:RUN "A_SAMERI.BAS"
  65. 1640 '
  66. 1650 *FLAME
  67. 1660  FOR T=0 TO 14 STEP 2
  68. 1670    LINE (X1+T,Y1+T)-(X1+160-T,Y1+102-T),PSET,0,B
  69. 1680  NEXT
  70. 1690 RETURN
  71.